todo

diff --git a/Command/Recompute.hs b/Command/Recompute.hs
index a5a82b7028c3794ff1e095a9da865640a75ab4f1..44d89f6a3367089cde9f0c1548ca2603801d5892 100644 (file)
--- a/Command/Recompute.hs
+++ b/Command/Recompute.hs
@@ -108,6 +108,8 @@ start' o r si file key =
                        -- explains the problem.
                        Nothing -> True
 
+-- TODO When reproducible is not set, preserve the
+-- reproducible/unreproducible of the input key.
 perform :: RecomputeOptions -> Remote -> OsPath -> Key -> Remote.Compute.ComputeState -> CommandPerform
 perform o r file key oldstate = do
        program <- Remote.Compute.getComputeProgram r